<script>on MouseUpglobal itif the OptionKey is down thenask "Enter the new course rating" with bg fld "Rating"if it is empty then exit MouseUpSetTenthsput it into bg fld "Rating"end ifend MouseUp</script>
</part>
<part>
<id>62</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>70</left>
<top>81</top>
<right>98</right>
<bottom>261</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>20</textHeight>
<name>Par Out</name>
<script></script>
</part>
<part>
<id>71</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>269</left>
<top>81</top>
<right>297</right>
<bottom>261</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>20</textHeight>
<name>Par In</name>
<script></script>
</part>
<part>
<id>80</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>412</left>
<top>32</top>
<right>456</right>
<bottom>49</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Round</name>
<script></script>
</part>
<part>
<id>123</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>25</top>
<right>94</right>
<bottom>51</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>30557</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>First</name>
<script>on MouseUpglobal itCheckParif it is empty then exit MouseUpCheckScoreif it is empty then exit MouseUpvisual effect barn door closego to cd "Leader Board"end MouseUp</script>
</part>
<part>
<id>125</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>387</left>
<top>25</top>
<right>414</right>
<bottom>51</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1013</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on MouseUpglobal itCheckParif it is empty then exit MouseUpCheckScoreif it is empty then exit MouseUpvisual effect scroll left fastget the number of the last cd of this bgif the number of this cd<>it then go to next cd of this bgend MouseUp</script>
</part>
<part>
<id>127</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>305</left>
<top>291</top>
<right>406</right>
<bottom>308</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name>New Round</name>
<script>on MouseUpglobal it,cursCheckParif it is empty then exit MouseUpCheckScoreif it is empty then exit MouseUpsend CloseCard to this cdSetCurslock screenset lockmessages to trueDoMenu "Copy Card"DoMenu "Paste Card"-- turn all the fairway and sand check boxes offrepeat with looop=1 to 36SetCursset the hilite of cd btn loop to falseend repeat-- empty all the necessary fieldsrepeat with loop=1 to 21SetCursput empty into bg fld loopend repeatadd 1 to bg fld "Round"-- update the total round counterSetCurspush this cdgo to cd "Stats"get the last word of cd fld "Rounds"put "Total Rounds: "& it+1 into cd fld "Rounds"pop cdend MouseUp</script>
</part>
<part>
<id>135</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>21</left>
<top>26</top>
<right>56</right>
<bottom>50</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1011</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>on MouseUpglobal itCheckParif it is empty then exit MouseUpCheckScoreif it is empty then exit MouseUpvisual effect dissolve fastgo homeend MouseUp</script>
</part>
<part>
<id>136</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>98</left>
<top>25</top>
<right>125</right>
<bottom>51</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1014</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Previous</name>
<script>on MouseUpglobal itCheckParif it is empty then exit MouseUpCheckScoreif it is empty then exit MouseUpvisual effect scroll right fastget the number of the first card of this bgif the number of this cd<>it then go to previous cd of this bgend MouseUp</script>
</part>
<part>
<id>137</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>457</left>
<top>20</top>
<right>491</right>
<bottom>53</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2507</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>About</name>
<script>on MouseUplock screenshow cd fld "Help 1"show cd fld "Help 2"set the scroll of cd fld "Help 2" to 1end MouseUp</script>
</part>
<part>
<id>138</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>306</left>
<top>313</top>
<right>406</right>
<bottom>329</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name>Calc Totals</name>
<script>on MouseUpglobal it,cursCheckParif it is empty then exit MouseUplock screenset lockmessages to trueSetCurs-- calculate the scores & puttsput 0 into ScoreOutput 0 into ScoreInput 0 into PuttOutput 0 into PuttInput 0 into ParOutput 0 into ParInrepeat with loop=1 to 9SetCursadd line loop of bg fld "Score Out" to ScoreOutadd line loop of bg fld "Score In" to ScoreInadd line loop of bg fld "Putt Out" to PuttOutadd line loop of bg fld "Putt In" to PuttInadd line loop of bg fld "Par Out" to ParOutadd line loop of bg fld "Par In" to ParInend repeatSetCursput ScoreOut into bg fld "Total Score Out"put ScoreIn into bg fld "Total Score In"put ScoreOut+ScoreIn into bg fld "Total Score"put ScoreOut+ScoreIn-(ParOut+ParIn) into tempif temp>0 thenput "+" into bg fld "Over Par"elseput empty into bg fld "Over Par"end ifput temp after bg fld "Over Par"SetCursput PuttOut into bg fld "Total Putt Out"put PuttIn into bg fld "Total Putt In"-- calculate the % of fairwaysput 0 into temprepeat with loop=1 to 18if the hilite of cd btn loop is true thenSetCursadd 1 to tempend ifend repeatput round((temp/18)*1000)/10 into itSetTenthsput it into bg fld "Fairways"-- calculate the % of sand savesput 0 into Savesput 0 into Sandrepeat with loop=1 to 9if the hilite of cd button (loop+18) is true thenSetCursadd 1 to Sandif line loop of bg fld "Score Out"≤line loop of bg fld "Par Out" thenadd 1 to Savesend ifend ifif the hilite of cd btn (loop+27) is true thenSetCursadd 1 to Sandif line loop of bg fld "Score In"≤line loop of bg fld "Par In" thenadd 1 to Savesend ifend ifend repeatSetCursif Sand≠0 then put round((Saves/Sand)*1000)/10 into Savesput Saves into itSetTenthsput it into bg fld "Sand Saves"-- calculate the % of two puttsput 0 into temprepeat with loop=1 to 9SetCursif line loop of bg fld "Putt Out"<3 then add 1 to tempif line loop of bg fld "Putt In"<3 then add 1 to tempend repeatput round((temp/18)*1000)/10 into itSetTenthsput it into bg fld "Two Putts"-- calculate % of greens in regulationput 0 into temprepeat with loop=1 to 9SetCursget line loop of bg fld "Score Out"-line loop of bg fld "Putt Out"if line loop of bg fld "Par Out"-it>1 then add 1 to tempget line loop of bg fld "Score In"-line loop of bg fld "Putt In"if line loop of bg fld "Par In"-it>1 then add 1 to tempend repeatput round((temp/18)*1000)/10 into itSetTenthsput it into bg fld "Greens"-- calculate #eagles, birdies, pars, bogeys, double bogeys, and othersSetCursput 0 into Eagleput 0 into Birdieput 0 into Parput 0 into Bogeyput 0 into DBogeyput 0 into Otherput "Score Out" into ScoreFldput "Par Out" into ParFldput 0 into Indrepeat with loop=1 to 18SetCursif loop=10 thenput "Score In" into ScoreFldput "Par In" into ParFldput 9 into Indend ifget line loop-Ind of bg fld ScoreFld-line loop-Ind of bg fld ParFldif it=-2 then add 1 to Eagleelse if it=-1 then add 1 to Birdieelse if it=0 then add 1 to Parelse if it=1 then add 1 to Bogeyelse if it=2 then add 1 to DBogeyelse add 1 to Otherend repeatSetCursput Eagle into bg fld "Eagle"put Birdie into bg fld "Birdie"put Par into bg fld "Par"put Bogey into bg fld "Bogey"put DBogey into bg fld "Double Bogey"put Other into bg fld "Other"end MouseUp</script>
</part>
<name>Course Background</name>
<script>on CheckParglobal itget bg fld "Par Out" & bg fld "Par In"if it is empty thenanswer "You must enter the Par values!"put empty into itend ifend CheckParon CheckScoreglobal itget bg fld "Score Out" & bg fld "Score In"if it is empty thenanswer "You must enter the scores before you can leave this card."put empty into itend ifend CheckScoreon CloseCardif bg fld "Total Score" is empty thensend MouseUp to bg btn "Calc Totals"end ifend CloseCardon ArrowKey WhichKeyif WhichKey is left then send MouseUp to bg btn "Previous"if WhichKey is right then send MouseUp to bg btn "Next"end ArrowKey</script>
